home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 14 / 014.d81 / text boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  586b  |  22 lines
  1. 10 rem   text boot
  2. 20 :
  3. 30 poke53281,1:poke53280,7:print"[147][144]"spc(9)"[212][197][216][212][210][193][208][207][204][193][212][201][207][206][160][205][197][206][213]"
  4. 40 :
  5. 50 print""
  6. 60 print"  1.  [212][197][216][212][210][193][208][207][204][193][212][201][207][206] -- 1"
  7. 70 print"  2.  [212][197][216][212][210][193][208][207][204][193][212][201][207][206] -- 2"
  8. 80 print"  3.  [212][197][216][212][210][193][208][207][204][193][212][201][207][206] -- 3"
  9. 90 print"  4.  [197]xit to [204][207][193][196][211][212][193][210]"
  10. 100 print"[215]hich ?";
  11. 110 poke198,0:wait198,1:geta$:a=val(a$)
  12. 120 ifa<1ora>4then                          poke53280,rnd(1)*15:goto110
  13. 130 ifa=1thenf$="textrapolation-1"
  14. 132 ifa=2thenf$="textrapolation-2"
  15. 134 ifa=3thenf$="textrapolation-3"
  16. 136 ifa=4thenf$="payload"
  17. 138 :
  18. 140 printa$;:print"loading "f$
  19. 150 :
  20. 63000 print"[147]load"chr$(34)f$               chr$(34)",8":print"run"
  21. 63010 poke631,13:poke632,13:poke198,2:        end
  22.